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FACILITY: SYSTST (SATS SYSTEM SERVICE TESTS) 
ABSTRACT: 
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THIS MODULE CONTAINS SUBROUTINES WHICH, WHEN LINKED 
were SUCCOMMON.OBJ, FORM TEST MODULE SATSSS44 TO TEST SUCCESSFUL 
ere an THE $SET MS 1 HE SE 
OPERATION. STATUS CODES ARE iy IN ut M32 MODULE. CORRECT 
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ACH 
HECKING FOR AN SS$_NORMAL STATUS CODE, EXPECTED RETURN ARGUMENTS 
AND EXPECTED FUNCTIONALITY PERFORMED. 


ENVIRONMENT: USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 


COOOCCCOCOCOSOSOSOSCSOSOSOSSSSOSCSOSOSOSCOOOCSOOOOOOOOOOOOOOOOO 


RO OONA NE WIP 0 ODNAUE WIN OS OD NAME WIN 0 OD NOUE WN OOOO Ewin 


Bae Se Ge Ge Ge Ge Be Se Ge Ge Ge Ge Ge Se Ge Se Ge Ge Be Se Ge Ge Se Se 


MUIR BERR LES PWN inonononononononono nn 2 2 


: 
: 
: 


COOooooooooooooooooo 


0 DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 
6 AUTHOR: THOMAS L. CAFARELLA, CREATION DATE: JUN, 1977 
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.SBTTL DECLARATIONS 
; INCLUDE FILES: 


SPRVDEF 
SPHDDEF 


; MACROS: 


POEAOSAPOOOOMIMIMNUITIUM 
ONAOUE A" OOOnNOuUsS 
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t EQUATED SYMBOLS: 


; OWN STORAGE: 


P=19 
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74 - FAO CTL STRING FOR MSG1 IN SUCCOMMON.MAR 
? 75 MSG3_ERR_CTL:: STRING I,< *SSSPN!4ZW: rage oe stain aie il ha caer tun 
51 77: PREVNAME: .LONG 4 ; PREVIOUS PROCESS NAME STRING DESCRIPTOR 
33 79 CHARI: — e ; PROCESS NAME STRING. DESCRIPTOR MLENGTH’ 1) 
Oe) 1 CHAR?: hess ema ; PROCESS NAME STRING DESCRIPTOR (LENGTH 7) 
069 83 CHARIS: : : PROCESS NAME STRING DESCRIPTOR (LENGTH 15) 
0060 = 8 TADDRESS PROCNAME P cinema 
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. i PID: - LONG ; PROCESS ID FOR 
PROCNANE : -BLKB 5 ; PROCESS NAME F 
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«SBTTL TM_SETUP, TM_CLEANUP 

FUNCTIONAL DESCRIPTION: 
MESETUP AND TM_CLEANUP ARE CALLED TO PERFORM 

REQUIRED HOUSEKEEPI = At THE BEGINNING AND END, RESPECTIVELY, OF 
TEST MODULE EXECUTI 
CALLING SEQUENCE: 

BSBW TM_SETUP BSBW TM_CLEANUP 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 


TM_SETUP: COND TABLE INDEX REGISTERS (R2,3,4,5,6) CLEARED; 
ALL PRIVILEGES ACQUIRED. 


COMPLETION CODES: 
EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
SIDE EFFECTS: 


SS_CHECK AND ERR EXIT MACROS CAUSE PREMATURE EXIT 
(VTA RSB) IF ERROR ENCOUNTERED. 
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0 TM_SETUP:: 
5 D4 CLRL : : INITIALIZE 
D4 CLRL OR : .. CONDITION 
2 D4 4 CLRL R4 6 eeee LE 
5 04 $ CLRL R5 . e*eeeee INDEX 
36 p4 CLRL s ccccccce REGISTERS 
FFF3" 30 A BSBW NT : PRINT TEST MODULE BEGIN N MSG 
00000900" EF 0 00 A D 0 MOVAL reat noo Ss eee TMD ASSUME END MSG WILL SHOW SUCCESS 
03 00 00 BE F 1 INSV. #SUCTESS7#0, #3, MOB. Ams. CODE: ADJUST STATUS CODE FOR SUCCESS 
: MODE RNL ; KERNEL MODE TO ACCESS PHD 
59 00000'9F DO 004 MOVL Teh peer R9 GET PROCESS HEADER ADDRESS 
00000000'EF 69 DE O04F MOVAL PHOS PRIVRSK CRD) PRIVMASK : GET PRIV MASK ADDRESS 
36 MODE ROM,5$ ; BACK TO USER MODE 
PRIV. _— ADD, ALL ; GET ALL PRIVILEGES 
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y042000 SOU TIMES: SETORTANE CLEAW SeSEP=TORC Bossi sso OET HES ea ese yee lO mars P88 hy 
4 ND3:: 
4 i cut SBup ; RETURN TO MAIN ROUTINE 
4 ea RSBO ; RETURN TO MAIN ROUTINE 
‘} ay |, & ; RETURN TO MAIN ROUTINE 
49 alk a ; RETURN TO MAIN ROUTINE 
1 soni Vitae ; RETURN TO MAIN ROUTINE 
2g ~ hs ; RETURN TO MAIN ROUTINE 
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aie -SBTTL FORM_CONDS 
FUNCTIONAL DESCRIPTION: 


FORM_CONDS 
THE CURRENT ELEMENT IN E 


CALLING SEQUENCE: 
BSBW FORM_CONDS 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
R2,3,4 
0 


FoR ton 
FOR X = : 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 


PTR Tee Tee Tere eee rere re rere rere rere rere rere rere rere rere rere rere rere rere reer 
t 
‘ 
ao 
oO 
z 


FORM_CONDS: : 
SFAO_S MSG1_INP_CT 


BSBW OUTPUT _MSG 
CMPB 
BNEQU 
BRW FORM_CONDSX 
MOVAL COND1_T 
MOVL 


10$: 


MOVB  #CONDT_C,M 
MOV_VAL COND1_C, CON 


#COND1~C,#NULL 


P=19 


FORMATS AND PRI 
ACH OF THE COND 


T T 
ATA ELEMENTS OF 


L,FAO_LEN,FAQ_D 


é 


TXT . 
CR2],MSG_bA 


MSG_A 7S 
CONDI TABT ROA MSG_B : 


SG 
DT 
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NTS_INFORMATION ABOUT 
ITIGN TABLES. 


N CURRENT CONDITION TABLE INDEX VALUES 
+243,4,5, RESPE 


CTIVELY. 


NDX TABL 
THE CONDX TABLE 


ESC, TESTNUM 
FORMAT Cont tees HEADER MSG 


-.. AND PR 
1S CONDITION 1 NULL ? 

NO =~ CONTINUE 

YES == SUBROUTINE IS FINISHED 


AVE ADDRESS OF CONDITION 1 TI 
SAVE ADDR OF COND RR T 


SAVE 
TAl ; GIVE COND 1 DATA VALUE T 


SATSSS44 SATS SYSTE 
v042000 FORM_CONDS 
FE82" 0 17B 1 BSBW 
14 34 4: 18 CMPB 
1¢ 1 14 BNEQU 
0096 3 183 15 BRW 
186 18 20$: 
OOQOOOOO'EF  QOQOOOO9E'EF oD 186 1 MOVAL 
OOOOOOOO'EF  QOOOO000B6'EF43 0D 191 8 MOVL 
OOOOOOOO'EF 00 9 19D 1 MOVB 
1A4 0 MOV_VAL 
FES9’ 30 1A4 1 sBQ 
14 14 «91 1A7 ¢ CMPB 
03 «12 aM BNEQU 
006D 31 OAC 4 RW 
Brae 5 30$: 
OQOOOOO00'EF  QOOOOOF4'EF DE O1AF 6 MOVAL 
OOOOOO00'EF  QOOOO0F4'EF44 00 OBA 4 MOVL 
OOOO0Q00'EF 14 90 i t6 8 MOVB 
1CD 9 MOV_VAL 
FE30" 30 O%CD 0 BSBQ 
14 14 91 Ht 1 CMPB 
47 13° 01D 3 BEQLU 
QOOOOOOO'EF QOOOOOFS'EF DE 01D5 3 MOVAL 
QOO00000"EF  OOO000FS"EF4S DO O1E0 34 MOVL 
OO0O000000'EF 14 90 gies 35 MOVB 
1F 36 MOV_VAL 
FEOA* 30 O1F3 37 sB0 
14 14 91 O1F6 38 CMPB 
21 13 O1F9 39 BEQLU 
OOOOOOCO'EF QOOOOOF6"EF DE O1FB 40 MOVAL 
OOOOO0000'EF QOOOOOF6"EF46 D0 020 41 MOVL 
OOOO0000'EF 14 90 021 g MOVB 
8 1 4 MOV_VAL 
FDE4' 30 19 44 sBQ 
bete a2 FORM_CONDSX: 
05 O21C 46 RSB 
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acro Page 
CISATSSS44.MAR; 1 


Ma 
SR 
ORMAT AND ey 


WRITE NSG2 iF E CONDITION 1 MSG 
HCOND2.C ,W NULL : 18 CONDITION 2 NULL ? 
$ + NO == CONTINUE 
FORM_CONDSX + YES == SUBROUTINE IS FINISHED 
COND MSG A ; SAVE ADDRESS OF CONDITION 2 T TITLE FOR 
COND “tis R3],MSG_B : SAVE ADDR OF COND 2 CURR TEXT ELT FOR 
ON g2 C,MSG_CTXT~ VE CONDITION 2 CONTEXT FOR FAO 
COND2_C, COND2_ELR3],MSG SATAN GIVE COND 2 DATA VALUE TO FAO 


W 
#COND3_C,#NULL 
FORM_CONDSX 


COND 
COND stiBeRe3 MSG_B 


G_CTXT 


CON SAV 
co ONS _t, t to NDS. ETR4I, MSG baTAY 


#CONDE C,#NULL 
CON bsx 


NDE T 
CONDS=TA cTABERS MSG_B 


aon 
$74 


FONDS C,#NULL 


FORM _CONDSX 
COND NDSCT T,MSG_A 
CONDS TABLR6J,MSG_B 


G_€TXT~ 


#CONDS_C,MS c 
COND> C, CONDS_ECR6],MSG baal GIVE CON 


“MSG2 


SG_CTXT™ VE C 
CON p4_t CONDE ECRSI, MSG_ BATAL 
WRITE-MSG F 


ATA 
: is"¢ emi rT AND D WRITE CO CONDITION MSG 
: NO == OMe ON tN UE 

: VES -- SUBROUTINE IS FINISHED 


; SAVE ADDRESS OF CONDITION 3 pe ree FOR 
; SAVE ADDR OF COND 3 C A FOR 


C 
; FORMAT A AND WRITE CONDITION 3 MSG 

; 1S CONDITION 4 NUL 

; YES == SUBROUTINE is” FINISHED 

: SAVE ADDRESS OF CONDITION 4 TITLE FOR 
; SAVE ADDR OF 


C 
; FORMAT 1 AND WR TE yfONDITION 4 MSG 

; 1S CONDITION 

: YES == SUBROUTI NE~ ts. FINISHED 

: SAVE ADDRESS OF CONDIT iON 5 TITLE FOR 
: SA VE ADDR OF COND 5 CUR TEXT ELT FOR 


D 
; FORMAT AND WRITE CONDITION 5 MSG 
; RETURN TO CALLER 
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5 
Y 
1D 405 ;-- 
1D 4 g 
1D 4 
1D 408 
1D 409 VERIFY:: 
sare 95 8 410 S18 FLAG ; SHOULD CONDITIONS BE PRINTED ? 
t : -- LL CON HIS T.C. 
FFOB 30 3 41 * BSBW  FORM_CONDS S <= FMT & PRINT ALL CONDS FOR THIS T.C 
0000000C'EF  00000000'EF 80 414 MOVW TESTNUM , PROCNAME ; MAKE PROCESS NAME UNIQUE FOR EACH T.C. 
3D 415 st. : FIRST CONDITION 2 ELEMENT ? 
D 12 416 BNEG 108 + NO == GO PROCESS 2ND ELEMENT 
41 $SETPRN_S PREVNAME + YES == ESTABLISH A ''PREVIOUS'’ NAME 
8 44 418 SS_CHECR NORMAL 3 «e+ AND CHECK COMPLETION 
3711 72 419 BRB 20$ : 22 CONTINUE 
0274 420 10S: 
0274 421 SSETPRN_S ; DELETE ANY POSSIBLE NAME 
0 7 4 é aaa SS_CHECR NORMAL > ace CHECK IT 
VL ND1_ : : N U L 
58 OQO000008E'EF42 00 : ag 4 4 mo COND1_ECR2],R8 GET PRCNAM ADDRESS OUT OF TABLE 
Oes3 426 ; eeeee SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE sssses 
02B5 428 SSETPRN_S (RB) ; ISSUE SUBJECT SETPRN 
00000000'8F 50 D1 O2BC 429 CMPL "RO, #SS$_NORMAL : CODE RECEIVED = CODE EXPECTED ? 
03 (12 02¢ 430 BNEQU 23$ : NO == GO PROCESS ERROR 
0061 (31 0 C3 431 oa BRW 27$ > YES == CONTINUE 
00000000'EF 00000000'8F 0 03c8 134 MOVL  #SS$_NORMAL,EXPV ; LOAD UP EXPECTED AND ... 
00000000°EF 50 DO 0203 434 MOVL —_RO,RECV : ., RECEIVED VALUES, THEN EXIT 
aes 435 am ERR_EXIT LONG, <INCORRECT STATUS CODE RETURNED FROM SETPRN> 
58 5 (0 $3 437 TSTL = RB : WAS PROCESS NAME SPECIFIED ? 
78 «13 0528 438 BEQL 408 : NO == GO DO SOME CHECKING 
g ote 
$35 440 : * IF FOLLOWING RESUME & SUSPND WORK TOGETHER, THEN PROCESS 
0520 441 ; + NAME WAS ESTABLISHED CORRECTLY. 
3 t 
0390 103 SRESUME_S PRCNAM=(R8) ; RESUME USING PROCESS NAME 
0338 9444 SS_CHECR NORMAL gee C RETURN 
056 445 $SOSPND S THISPID : SUSPND THIS PROCESS USING PID 
0 7 44g SS CHECR NORMAL : ve. CHECK RETURN 
3D «611 «O3A3.— 4a BRB VERIFYX : 125 AND EXIT 
z, rr 40$: 
AS 4G SWAKE_S PRCNAM=PREVNAME : PRCNAM SHOULD NOT EXIST 
B4 450 SS_CHECK NONEXPR : CHECK THAT IT DOESN'T 
0 EZ 451 VERIFYX: 
05 O3E2 452 RSB : RETURN TO CALLER 
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$$$$ 
SSSCHARS 


$ DA 
SSSTRINGS 


COND1_C 
COND 1 ~ CLEANUP 
CONDE 

COND 1-H 
COND1~T 
COND1~TAB 


Cc ot 
pia CLEANUP 


D3_¢ 
eae CLEANUP 


COND 
COND> TAB 


COND4_C 
COND4~ CLEANUP 
COND4"H 


COND4"T 
COND4"TAB 
CONDS 


COND5_C 
COND5~ CLEANUP 
COND5—H 


COND5~ TAB 
CTL$GC_PHD 
DESC 

EFLAG 
EXPV 


FAO_DESC 
FAO_LEN 
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FORM_CONDS 
FORM CONDSX 
LONG” 


NUL 
guiPuT _MSG 
Pua PRIVMSK 

PRE VNAME 
PRIVAASK 
PRIV_ARGS 
PROCESS ERR 
PROCNAME 


RE 
REST_REGS 


USPND 
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WRITE_MSG2 
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RERRRAER 
Reekeeee 
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VMS 
PSY.S REIS SATSSS 


$erwmeceszacaoce seems 


! Psect synopsis ! 


juneeneemnanhanne> 


PSECT name Allocation PSECT No. Attributes 

, 8 « O08 ( - Ot -) NOPIC USR ABS LCL NOSHR NOEXE NORD NOWRT woves BYTE 

SABSS ( oa 8 -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC B 

RODATA 00 8 ( 113.) ¢ ( ¢°} NOPIC USR CON REL LCL NOSHR NOEXE R&D NOURT NOVEC LONG 
ATA 00 or ( 8 ) ( -) NOPIC USR CON REL LCL NOSHR NOEXE'- RD WRT NOVEC 

SATSSS44 OOOOSES (¢ 996.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 


pene ere we eon eee ees eee woe 


: Performance indicators ! 


to A me ae ee er ae em om en ce ene tema aunt 


Phase Page faults CPU Time Elapsed Time 
Initialization $2 90: 00:00 -08 00:06:00. 36 
sounene processing 136 00:00: 2: 1 0:00:01.6 

s 1 232 00:00:05.75 EET 
Suabol table sort 0 B38 700.45 0: 830-22 
Pass 2 105 0:00:01.57 00:00:03.44 
Symbol table output 13 eS Ss EE SS 
Psect synopsis output § 00:00:00.0 B08 188-8 
Cross-reference output eS Be Sh 00:00: 8-98 
Assembler run totals 519 0:00:08.68 00:00:19.9 


The working set Limit was 1200 pages. 

29938 bytes (59 pages) of virtual memory were used to buffer the intermediate goer 

There were 20 pages of symbol gable, space allocated to hold 299 non-local ig 4 local symbols. 
source Lines were read in Pass 1, producing g object records in Pass 2. 

34 pages of virtual memory were used to define 25 macros. 


wer erevecon ~~ + - ee eee eee ewe $ 


Macro Library name Macros defined 
“$52 280UA 8: pe OF To a -MLB;1 8 
- 55SDUA28: B;1 1 

$255$DUA28:CSYSLI ISTARLET. MLB; 2 3 

TOTALS ‘all Libraries) 2 


605 GETS were required to define 22 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SATSSS44/0BJ=OBJ$:SATSSS44 MSRC$:SATSSS44/UPDATE=(ENHS: SATSSS44) +EXECMLS$/LIB+SHRLIBS$:UETP/LIB 
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